home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_2 / cnetjam2.lha / CNetJam2 / cnet / pfiles / fido / FidoBusyMessage < prev    next >
Text File  |  1995-01-28  |  2KB  |  23 lines
  1. /**************************************************************************\
  2.               $VER: Fido Busy, v2.0 (27-Jan-95) by Dotoran!
  3. \**************************************************************************/
  4. /*   Checks INBOUND: for ".pkt" files, then displays a "busy" message.   */
  5. options results ; tr=transmit ; se=sendstring ; getuser 15 ; ac=result
  6. a=addlib('rexxsupport.library',0,-30,0) ; a=showdir('inbound:')
  7. if index(upper(a),'.PKT')>0 then do ; tr 'f1n4'
  8.     tr '>9z1                                                             z0'
  9.     tr '>9z1  cf--> ceA T T E N T I O N     C U R R E N T     U S E R cf<--    z0'
  10.     tr '>9z1cb                                                             z0'
  11.     tr '>9z1  There are incoming FIDO-Net Messages being processed in    z0'
  12.     tr '>9z1  the background right now, so you will be experiencing a    z0'
  13.     tr '>9z1  SLOW-DOWN in the performance of Frontiers BBS, until all   z0'
  14.     tr '>9z1  new messages have been processed. Thank You.               z0'
  15.     tr '>9z1                                                 caDotoran     z0'
  16.     tr '>9z1                                                             z0'
  17.     if ac<31 then se '                              c6<c7Press cdENTER c7Nowc6>i1'
  18.     if ac=31 then do;se "n1Run CNet Toss now? [No]: ";gc;a=result
  19.       if a="Y" then do;tr "Yes!";address command "cnet:toss";end;else tr "No.";end
  20.     end ; else tr 'n1c6No ceFIDO-Net c9Activity c6Happening cbPresentlyc6.'
  21. /** Last Edited: 27-Jan-95 ************************************************\
  22. \****************************************** FRONTIERS BBS (716)/823-9892 **/
  23.